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: 1 MODULE DIRFCB ( LpmeUAse (OL1S882) 

; 5 IDENT = ° vient 7 

: 4 d= 

3 5 BEGIN 

eM. 1: 

3 : } epseeaaear py pheepseipccanpinensig mer eraernrsemnee 
; ® ft 
co 1 it COPYRIGHT (c) 1978, 1980 1982, 1984 B * 
> oe 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. « 
: \§ ! is ALL RIGHTS RESERVED ° 
: 14 1 ie THIS are Is ent see UNDER A LICENSE AND MAY BE USED AND COPIED * 
ae 1 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®& 
3 1g 1 i® INCLUSION OFe THE ABOVE COPYRIGHT NOTICE. THis SOFTWARE OR ANY OTHER * 
ee 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s Ww 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i : is TRANSFERRED. * 
Py : e 
3 1 1 !e ji | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 1 Ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Z : & CORPORATION. . 
; 5 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $ : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
; 

: $8 : lcnintiniahdeaheadimendintmbunemineiesanateieniibamaiesenennmnanmtiaeiebmenda 
: e+ 

; FACILITY: F11ACP Structure Level 1 

: 35 | ABSTRACT: 

; 7 1 This routine makes the necessary adjustments to the FCP data 

3 8 > as pees te make an FCB useful for directory operations. 

3 iB H ! ENVIRONMENT 

: 41 ae STARLET operating system, including privileged system services 

8 4g § 1! and internal exec routines. This routine must be called 

3; 6 1! in kernel mode. 

3 44 4 1! 

s 6§ 5 1 !<- 

| an 

: 48 48 AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-Jan-1977 23:37 

; i 30 i MODIFIED BY: 

; ¢ 2 1: A0100 ACG0001 Andrew C. Goldstein, 10-Oct-1978 20:01 

i 33 33 Previous revision history moved to F11A.REV 

: 55 55 1 jee 

3 § 2$ 1 

3 | 
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6) te GLOBAL ROUTINE MAKE_DIR_FCB (FCB) : NOVALUE = ° 
yi : 
65 og FUNCTIONAL DESCRIPTION: ; 
3] 0 i This routine makes the necessary adjustments to the FCP data ; 
o8 1 } base to make an FCB useful for directory operations. ‘ 
0 5 i CALLING SEQUENCE: é 
4 4 MAKE_DIR_FCB (ARG1) : 
7 6 i INPUT PARAMETERS: é 
a i ARG1: address of FCB ° 
7 89 1 | IMPLICIT INPUTS: é 
as BY CURRENT_VCB: address of VCB of volume in process : 
79 3 i QUTPUT PARAMETERS: : 
Bacay te ato 
Be 0395 i IMPLICIT OUTPUTS: 
$399 i sae 
398 1 | ROUTINE VALUE: 
44 : NONE 
9401 i SIDE EFFECTS: 
rt ! FCB may be Linked into FCB List 
040 H oldest FCB LRU eniry may be gone 
4 i 
04 
be 
4 
04 
04 
. 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 


88 

89 

90 

91 04 

3¢ 05 -- 

G 54 

94 0 

95 08 

96 09 

24 19 FCB : REF BBLOCK; ! FCB argument 

OG \¢ LOCAL 

100 1 DUMMY, ' dummy destination for REMQUE 
19) \3 P : REF BBLOCK; ' random pointer 

108 1 EXTERNAL 

Ie 1 CURRENT_VCB : REF BBLOCK; ! volume VCB 

105 418 

196 19 EXTERNAL ROUTINE 

198 ; ? DEALLOCATE; ! deallocate block 

1 

110 5 ! If the FCB represents a cone Seve file, and it is not accessed, 
Ng 3 ; hook it into the directory LRU List, if it is not already there. 
11 

114 $ IF oF cOrr ces. STLBN) NEQ 8 

115 3 AND .FCBCFCB$Q_ACNTJ) EQL 

116 AND .CURRENT_VCBCVCB$B_LRU_LIM] GEQ 0 

11 450 THEN 
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BEGIN 
IF NOT .FCBCFCBSV_DIRI 
THEN 


>! 


BEGIN 
CURRENT_VCBCLVCB$B_LRU_LIM] = .CURRENT_VCBLVCB$B_LRU_LIM) - 1; 


If we just overflowed the LRU, search the FCB List for the first 
(and therefore oldest) directory FCB and dump it. 


IF_ .CURRENT_VCBCVCB$B_LRU_LIM] LSS 0 


DOOOOCOOCOCOCSOOOSOSoO 
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BEGIN 
P = ,CURRENT_VCBCVCBSL_FCBFLI; 
IF NOT 


FUN “CO OONOULS WN —OOMw 


( 
WHILE 0 tee -CURRENT_VCB DO 

IF .PCFCBSV_DIR] THEN EXITLOOP 0; 

P = .PCFCBSC_FCBFLI; 

END 

! FCB found 
QUE (.P, DUMMY); ' remove FCB from List 

DEALLOCATE (.P); ' deallocate the block 
CURRENT_VCBLVCBSB_LRU_LIM = .CURRENT_VCBLVCB$B_LRU_LIM] + 1; 


ELSE ! FCB not found - LRU not in use 
- CURRENT_VCBCVCBS$B_LRU_LIM] = -1; 


MVMIUMIVMIVIWMIUIUIUT 


! If the LRU is not disabled (now indicated by a negative count value), 
} insert the FCB into the List and mark it as a directory FCB. 


IF .CURRENT_VCBCVCBSB_LRU_LIM] GEQ 0 
THEN 


BEGIN 
FCBCFCB$V_DIRJ = 1; 
INSQUE (.FCB, .CURRENT_VCBCVCBSL_FCBBLJ); 


DWONAULSWN $O OOVNOULS WN 0O~ 
Sooooo ooo 
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! If the FCB was already in the LRU, move it to the end of the FCB List 
to indicate its new use. 
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NT_VCBCVCBSL_FCBBLJ); 
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! end of routine MAKE_DIR_ACCESS 
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pine CB 
\V04=000\ 
CURRENT_VCB, DEALLOCATE 
SCODES ,NOWRT,2 
000c 0000 .ENTRY MAKE_DIR_FCB, Save R2,R3 : 0374 
53 00006 CF 9 O09 MOVAB CURRENT_UCB, Rs : . 
5} 04 AC 00 0000 MOVL t 0427 
0 al ? 908 TSTL  48(R1) : 
60 BEQL é 
1A A1_s«BS (0001 TSTW 6(R1) + 0428 
38 12 0001 BNEQ ; 
50 63 00 0001 MOVL CURRENT _VCB, RO + 0429 
49 Ad 95 0001 TSTB (RO) : 
53 19 0001B BLSS 6§ ; 
44 22 Al €8 0001D BLBS 4(R1) + 043 
50 63 BO 0021 MOVL CURRENT VCB, RO + 043 
49 a0 97 00024 DECB = 73(RO) : 
27 18 00027 BGEQ = 4 + 0441 
51 60 00 00 9 MOVL (RO), P + 0444 
50 51 D1 0002C 1$ CMPL sé, RO + 0447 
1B 13 0002F BEQL 3 ; 
05 22 Al EB 00 1 BLBS 4(P), 2$ + 0449 
1 61 DO 00035 MOVL (P), P + 0450 
F2 11 00038 BRB 1$ + 0447 
52 61 OF 0003A 2$ REMQUE (P), DUMMY + 0455 
1 OD 0030 PUSHL P : 0456 
00006 CF 01 FB 0003F CALLS #1, DEALLOCATE : 
50 63 b0 0044 MOVL § CURRENT_VCB, RO : 0457 
49 Ad 96 00047 INCB = 73(RO) ; 
04 11 O004A BRB 43 + 0445 
49 AO 01 8E 0004C 3$ MNEGB #1, 73(RO) : 0460 
51 63 DO 00050 4$ MOVL CURRENT _VCB. R1 > 0467 
49 al 95 0005 TSTB (R1) ; 
18 19 09056 BLSS 68 F 
50 04 Ac 06 0058 MOVL FCB, RO + 0470 
22 =A 01 005¢ BISB2 #1, 34(RO) : 
04 21 60 OE 00060 INSQUE (RO), a4(R1) + 0471 
4 00064 ET 3 0432 
52 61 OF 00065 5$ REMQUE (R1), DUMMY : 0481 
50 63 D0 0068 MOVL CURRENT _VCB, RO + 0482 
04 80 04 BC OE 00068 INSQUE @FCB, a&(ROS ; 
4 00070 6$: RET + 0486 


: Routine Size: 113 bytes, Routine Base: $CODE$ + 0000 


174 ot 14 1 
175 0488 1 END 
176 0489 0 ELUDOM 


—— 
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4-S$ ~Sep-1984 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 113 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; eerie Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255$DUA28: CSYSLIBILIB.L32;1 18619 8 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DIRFCB/OBJ=OBJ$:DIRFCB MSRC$:DIRFCB/UPDATE=(ENH$:DIRFCB) 
113 code r| 0 data bytes 


crday Tine: 0320.7 
Lines/CPU Min: 35 
Teeny AO gig 13994 
1? Used: 91 pages 
ae ation Complete 
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